object GenelListeF: TGenelListeF
  Left = 494
  Top = 129
  BorderIcons = []
  BorderStyle = bsSingle
  Caption = 'Durum'
  ClientHeight = 345
  ClientWidth = 496
  Color = clBtnFace
  Font.Charset = TURKISH_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Arial'
  Font.Style = []
  KeyPreview = True
  OldCreateOrder = False
  Position = poMainFormCenter
  OnClose = FormClose
  OnCreate = FormCreate
  OnKeyDown = FormKeyDown
  OnKeyPress = FormKeyPress
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 14
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 496
    Height = 155
    Align = alTop
    BevelOuter = bvNone
    TabOrder = 0
    object Bevel1: TBevel
      Left = 4
      Top = 147
      Width = 483
      Height = 2
    end
    object Grid1: TwwDBGrid
      Left = 6
      Top = 5
      Width = 484
      Height = 137
      DisableThemes = False
      ControlType.Strings = (
        'selected;CheckBox;True;False')
      Selected.Strings = (
        'selected'#9'3'#9'Se'#231#9#9
        'stokkodu'#9'20'#9'Stok Kodu'#9#9
        'cinsi'#9'33'#9'Cinsi'#9#9
        'miktar'#9'5'#9'Miktar'#9#9)
      IniAttributes.Delimiter = ';;'
      TitleColor = clBtnFace
      FixedCols = 0
      ShowHorzScrollBar = True
      DataSource = dm.SiparisHarS
      KeyOptions = [dgEnterToTab]
      Options = [dgEditing, dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit, dgWordWrap]
      TabOrder = 0
      TitleAlignment = taLeftJustify
      TitleFont.Charset = TURKISH_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -11
      TitleFont.Name = 'Arial'
      TitleFont.Style = []
      TitleLines = 1
      TitleButtons = False
      UseTFields = False
      OnCalcCellColors = Grid1CalcCellColors
    end
  end
  object Panel3: TPanel
    Left = 0
    Top = 155
    Width = 496
    Height = 58
    Align = alTop
    BevelOuter = bvNone
    TabOrder = 1
    object isletimsistemil: TLabel
      Left = 13
      Top = 11
      Width = 66
      Height = 14
      BiDiMode = bdLeftToRight
      Caption = #304#351'letim Sistemi'
      Color = clBtnFace
      Font.Charset = TURKISH_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = []
      ParentBiDiMode = False
      ParentColor = False
      ParentFont = False
      Transparent = True
    end
    object Shapeisletimsistemi: TShape
      Left = 265
      Top = 2
      Width = 40
      Height = 30
      Brush.Color = clRed
      Shape = stCircle
      Visible = False
    end
    object Label1: TLabel
      Left = 13
      Top = 36
      Width = 75
      Height = 14
      BiDiMode = bdLeftToRight
      Caption = 'Verilecek Miktar'
      Color = clBtnFace
      Font.Charset = TURKISH_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = []
      ParentBiDiMode = False
      ParentColor = False
      ParentFont = False
      Transparent = True
    end
    object isletimsistemik: TwwDBComboBox
      Left = 96
      Top = 7
      Width = 169
      Height = 22
      ShowButton = True
      Style = csDropDownList
      MapList = True
      AllowClearKey = True
      AutoDropDown = True
      ShowMatchText = True
      DropDownCount = 8
      ItemHeight = 0
      Sorted = False
      TabOrder = 0
      UnboundDataType = wwDefault
    end
    object VerilecekMiktark: TSpinEdit
      Left = 96
      Top = 32
      Width = 73
      Height = 23
      MaxValue = 0
      MinValue = 0
      TabOrder = 1
      Value = 0
    end
    object cbKarmaKoli: TwwDBComboBox
      Left = 307
      Top = 7
      Width = 169
      Height = 22
      ShowButton = True
      Style = csDropDownList
      MapList = True
      AllowClearKey = True
      AutoDropDown = True
      ShowMatchText = True
      DropDownCount = 8
      ItemHeight = 0
      Sorted = False
      TabOrder = 2
      UnboundDataType = wwDefault
    end
    object Pixell: TwwCheckBox
      Left = 307
      Top = 33
      Width = 62
      Height = 17
      DisableThemes = False
      AlwaysTransparent = False
      ValueChecked = 'True'
      ValueUnchecked = 'False'
      DisplayValueChecked = 'True'
      DisplayValueUnchecked = 'False'
      NullAndBlankState = cbUnchecked
      Caption = '0 Pixell'
      TabOrder = 3
    end
  end
  object Panel6: TPanel
    Left = 0
    Top = 213
    Width = 496
    Height = 36
    Align = alTop
    BevelOuter = bvNone
    TabOrder = 2
    object Panel2: TPanel
      Left = 0
      Top = 0
      Width = 496
      Height = 34
      Align = alTop
      BevelOuter = bvNone
      TabOrder = 0
      object Label3: TLabel
        Left = 13
        Top = 8
        Width = 76
        Height = 14
        Caption = 'Bekleme Nedeni'
        Transparent = True
      end
      object Beklemenedenik: TwwDBComboBox
        Left = 96
        Top = 5
        Width = 168
        Height = 22
        ShowButton = True
        Style = csDropDownList
        MapList = True
        AllowClearKey = False
        AutoDropDown = True
        DropDownCount = 8
        ItemHeight = 0
        Items.Strings = (
          'Eksik Par'#231'a'#9'1'
          'Planlama/Sevkiyat'#9'2'
          'M'#252#351'teri Talebi'#9'3'
          'Hatal'#305' Sipari'#351#9'4')
        Sorted = False
        TabOrder = 0
        UnboundDataType = wwDefault
        OnChange = BeklemenedenikChange
      end
      object lcEksikParca: TwwDBLookupCombo
        Left = 267
        Top = 5
        Width = 144
        Height = 22
        DisableThemes = False
        DropDownAlignment = taLeftJustify
        Selected.Strings = (
          'isim'#9'25'#9'isim'#9'F')
        LookupTable = dm.aqGrup
        LookupField = 'id'
        Navigator = False
        TabOrder = 1
        Visible = False
        AutoDropDown = True
        ShowButton = True
        UseTFields = False
        AllowClearKey = True
        OnKeyDown = lcEksikParcaKeyDown
      end
    end
  end
  object Panel4: TPanel
    Left = 0
    Top = 249
    Width = 496
    Height = 57
    Align = alTop
    BevelOuter = bvNone
    TabOrder = 3
    object Label2: TLabel
      Left = 13
      Top = 6
      Width = 43
      Height = 14
      Caption = 'A'#231#305'klama'
      Transparent = True
    end
    object aciklamak: TwwDBEdit
      Left = 96
      Top = 4
      Width = 329
      Height = 45
      AutoSize = False
      TabOrder = 0
      UnboundDataType = wwDefault
      WantReturns = False
      WordWrap = True
    end
  end
  object Panel5: TPanel
    Left = 0
    Top = 306
    Width = 496
    Height = 42
    Align = alTop
    BevelOuter = bvNone
    TabOrder = 4
    object btamam: TBitBtn
      Left = 95
      Top = 6
      Width = 89
      Height = 25
      Caption = 'Tamam'
      TabOrder = 0
      OnClick = btamamClick
    end
    object bkapat: TBitBtn
      Left = 208
      Top = 6
      Width = 81
      Height = 25
      Caption = #304'ptal'
      TabOrder = 1
      OnClick = bkapatClick
    end
  end
  object pnlStoktanVer: TPanel
    Left = 587
    Top = 234
    Width = 333
    Height = 39
    BevelOuter = bvNone
    TabOrder = 5
    Visible = False
    object lblMiktar: TLabel
      Left = 95
      Top = 13
      Width = 75
      Height = 14
      BiDiMode = bdLeftToRight
      Caption = 'Verilecek Miktar'
      Color = clBtnFace
      Font.Charset = TURKISH_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = []
      ParentBiDiMode = False
      ParentColor = False
      ParentFont = False
      Transparent = True
    end
    object edMiktar: TSpinEdit
      Left = 174
      Top = 9
      Width = 87
      Height = 23
      MaxValue = 0
      MinValue = 0
      TabOrder = 0
      Value = 0
    end
    object lblSiparisNo: TStaticText
      Left = 7
      Top = 10
      Width = 69
      Height = 20
      Caption = 'Sipari'#351' No'
      Color = clBlack
      Font.Charset = TURKISH_CHARSET
      Font.Color = clRed
      Font.Height = -13
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentColor = False
      ParentFont = False
      TabOrder = 1
    end
  end
  object Siparisisletimsistemi: TADOQuery
    Connection = dm.connect
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    Parameters = <
      item
        Name = 'siparisid'
        Attributes = [paSigned, paNullable]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end>
    SQL.Strings = (
      
        'select Ambar=(Case When Sh.LineType=2 then '#39'U'#39' else Si.Ambar end' +
        '),Si.Stokkodu,Si.stokkod,Sh.miktar '
      'from Unity_Siparishar_2006 Sh'
      'Join Stok Si on (Si.Stokkod=Sh.Stokkod)'
      'where  '
      '(Si.Ambar='#39'U'#39' or Si.GrupId=49 or Sh.LineType=2) '
      'and siparisid=:siparisid')
    Left = 352
    Top = 24
  end
  object LisansizCiksinmi: TADOQuery
    Connection = dm.connect
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    Parameters = <
      item
        Name = 'siparisid'
        Size = -1
        Value = Null
      end>
    SQL.Strings = (
      
        'select stokkodu=(select stokkodu from stok where stok.stokkod=Un' +
        'ity_Siparishar_2006.stokkod),stokkod from Unity_Siparishar_2006 '
      
        'where (select marka from stok where stok.stokkod=Unity_Siparisha' +
        'r_2006.stokkod) in (219,839) and siparisid=:siparisid')
    Left = 352
    Top = 80
  end
  object BeklemeNedeni: TADOQuery
    Connection = dm.connect
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select *  from Unity_Beklemenedeni where id=0')
    Left = 352
    Top = 111
  end
  object VerilecekMiktarQ: TADOQuery
    Connection = dm.connect
    CursorType = ctStatic
    Parameters = <
      item
        Name = 'siparisharid'
        Attributes = [paSigned]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end>
    Prepared = True
    SQL.Strings = (
      
        'select miktar-isnull(verilenmiktar,0) as kalanmiktar,miktar from' +
        ' unity_siparishar_2006 '
      'where id=:siparisharid')
    Left = 263
    Top = 102
  end
  object StokQ: TADOQuery
    Connection = dm.connect
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    Parameters = <>
    SQL.Strings = (
      'select stokkod,stokkodu from stok'
      'where aktif='#39'A'#39
      'order by stokkodu ')
    Left = 428
    Top = 104
  end
  object SiparisharQ: TADOQuery
    Connection = dm.connect
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    Parameters = <>
    SQL.Strings = (
      'select stokkod,stokkodu from stok')
    Left = 360
    Top = 256
  end
  object aqSiparis: TADOQuery
    Connection = dm.connect
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    Parameters = <
      item
        Name = 'siparisid'
        Attributes = [paSigned]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end>
    SQL.Strings = (
      'select SiparisNo,CariKodu,FirmaAdi,Tarih,'
      'EMail=(Select EMail from cayetkili Where Kodu=Cari.Temsilcisi)'
      'from Unity_Siparis_2006'
      'join Cari on (Cari.Carikod=Unity_Siparis_2006.Carikod)'
      'where id=:Siparisid')
    Left = 253
    Top = 256
  end
  object aqSecKistas: TADOQuery
    Connection = dm.connect
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    Parameters = <>
    SQL.Strings = (
      
        'select Ep.Temsilci,Ep.Carikod,C.Carikodu,C.FirmaAdi,Ep.Stokkod,E' +
        'p.Stokkodu,Ep.StokkoduLike,Ep.CarikoduLike,Ep.EkParca,Ep.Temsilc' +
        'iHaric '
      'from TblEkParcaKistaslari Ep'
      'left Join Cari C on (Ep.Carikod=C.Carikod)'
      'Where Ep.Aktif=1 and Ep.Sec=0')
    Left = 180
    Top = 78
  end
  object SiparisKarmaKoli: TADOQuery
    Connection = dm.connect
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    Parameters = <
      item
        Name = 'siparisid'
        Attributes = [paSigned, paNullable]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end>
    SQL.Strings = (
      'select Sh.LineType,Si.Ambar,Si.Stokkodu,Si.stokkod,Sh.miktar '
      'from Unity_Siparishar_2006 Sh'
      'Join Stok Si on (Si.Stokkod=Sh.Stokkod)'
      'where  '
      '(Si.Ambar='#39'U'#39' or Sh.LineType=6) '
      'and siparisid=:siparisid')
    Left = 269
    Top = 24
  end
  object PixelKontrol: TADOQuery
    Connection = dm.connect
    CursorType = ctStatic
    Parameters = <
      item
        Name = 'Carikod'
        Attributes = [paSigned, paNullable]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end
      item
        Name = 'SiparisNo'
        Attributes = [paNullable]
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 9
        Value = Null
      end
      item
        Name = 'stokkod'
        Attributes = [paSigned, paNullable]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end>
    SQL.Strings = (
      'Select Carikod,SiparisNo,Stokkod '
      'From TblAnlasma An WITH(NOLOCK)'
      'left Join TblAnlasmahar Anh on (An.Ref=Anh.AnlasmaRef)'
      'Where An.Aktif=1 and An.Tipi=1 and'
      '(Getdate()>=An.BasTarih and Getdate()<=An.BitTarih)'
      'and (Carikod is null or Carikod=:Carikod)'
      'and (SiparisNo is null or SiparisNo=:SiparisNo)'
      'and (Stokkod is null or Stokkod=:Stokkod)')
    Left = 455
    Top = 379
  end
  object aqSiparishar: TADOQuery
    Connection = dm.connect
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    Parameters = <
      item
        Name = 'Siparisharid'
        Attributes = [paSigned]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end>
    SQL.Strings = (
      'select Stokkod'
      'from Unity_Siparishar_2006'
      'where id=:Siparisharid')
    Left = 344
    Top = 307
  end
end
